;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(defun c:retext (/ this_ent that_ent that_entdef this_text)
  (WHILE (OR
           (NOT (SETQ this_ent (ENTSEL "Select orign text (to be copied and erased): ")))
           (IF this_ent
             (NOT (EQ (CDR (ASSOC 0 (ENTGET (CAR this_ent)))) "TEXT"))
           )
         )
  )
  (WHILE (OR
           (NOT (SETQ that_ent (ENTSEL "Select destination text (to receive copied text): ")))
           (IF that_ent
             (NOT (EQ (CDR (ASSOC 0 (ENTGET (CAR that_ent)))) "TEXT"))
           )
         )
  )
  (SETQ that_entdef (ENTGET (CAR that_ent)))
  (SETQ that_entdef (SUBST (ASSOC 1 (ENTGET (CAR this_ent)))(ASSOC 1 that_entdef) that_entdef))
  (SETQ that_entdef (SUBST (ASSOC 8 (ENTGET (CAR this_ent)))(ASSOC 8 that_entdef) that_entdef))
  (IF (ENTMOD that_entdef)
    (ENTDEL (CAR this_ent))
  )
  (PRINC)
)